Monster Media 1996 #14/Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO/prog_bas/vbwarn.zip/VBWARN.FRM

Text File | 1996-01-04 | 82KB | 2,282 lines

VERSION 2.00
Begin Form VBWarn
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Warning Ticket System"
   ClientHeight    =   6285
   ClientLeft      =   165
   ClientTop       =   795
   ClientWidth     =   9255
   ForeColor       =   &H00000040&
   Height          =   6975
   Icon            =   VBWARN.FRX:0000
   Left            =   105
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   6285
   ScaleWidth      =   9255
   Top             =   165
   Width           =   9375
   Begin TextBox txtComm
      DataField       =   "Comment"
      DataSource      =   "dtaWarning"
      Height          =   285
      Left            =   1500
      TabIndex        =   133
      Text            =   "Text3"
      Top             =   2040
      Visible         =   0   'False
      Width           =   180
   End
   Begin CommandButton cmdComm
      Caption         =   "Comments"
      Height          =   315
      Left            =   180
      TabIndex        =   132
      Top             =   2040
      Width           =   1575
   End
   Begin SSFrame Frame3D4
      ForeColor       =   &H00000000&
      Height          =   915
      Left            =   60
      ShadowColor     =   1  'Black
      TabIndex        =   129
      Top             =   5340
      Width           =   9075
      Begin TextBox txtJumpTo
         BackColor       =   &H00C0C0C0&
         Height          =   315
         Left            =   5640
         TabIndex        =   70
         Top             =   180
         Width           =   3315
      End
      Begin CommandButton cmdJumpTo
         Caption         =   "&Jump To:"
         Height          =   315
         Left            =   4620
         TabIndex        =   71
         Top             =   180
         Width           =   975
      End
      Begin ComboBox cmbSortBy
         BackColor       =   &H00C0C0C0&
         Height          =   300
         Left            =   900
         TabIndex        =   68
         Top             =   180
         Width           =   3495
      End
      Begin Data dtaWarning
         BackColor       =   &H00C0C0C0&
         Caption         =   "Warning Tickets"
         Connect         =   ""
         DatabaseName    =   "VBWARN.MDB"
         Exclusive       =   0   'False
         Height          =   315
         Left            =   120
         Options         =   0
         ReadOnly        =   0   'False
         RecordSource    =   "TikPerson"
         Top             =   540
         Width           =   4275
      End
      Begin CommandButton cmdDelete
         BackColor       =   &H00C0C0C0&
         Caption         =   "&Delete"
         Height          =   315
         Left            =   5760
         TabIndex        =   69
         Top             =   540
         Width           =   915
      End
      Begin CommandButton cmdSave
         BackColor       =   &H00C0C0C0&
         Caption         =   "&Save"
         Height          =   315
         Left            =   6900
         TabIndex        =   64
         Top             =   540
         Width           =   915
      End
      Begin CommandButton cmdNew
         BackColor       =   &H00C0C0C0&
         Caption         =   "&New"
         Height          =   315
         Left            =   4620
         TabIndex        =   66
         Top             =   540
         Width           =   915
      End
      Begin CommandButton cmdCancel
         BackColor       =   &H00004080&
         Caption         =   "&Cancel"
         Height          =   315
         Left            =   8040
         TabIndex        =   65
         Top             =   540
         Width           =   915
      End
      Begin Label lblSortBy
         BackColor       =   &H00C0C0C0&
         Caption         =   "Sort &By:"
         Height          =   195
         Left            =   120
         TabIndex        =   67
         Top             =   180
         Width           =   735
      End
   End
   Begin TextBox txtOffID
      DataField       =   "OfficerID"
      DataSource      =   "dtaWarning"
      Height          =   285
      Left            =   7800
      TabIndex        =   128
      Top             =   4920
      Visible         =   0   'False
      Width           =   195
   End
   Begin ComboBox cmbOfficer
      BackColor       =   &H00C0C0C0&
      Height          =   300
      Left            =   4980
      TabIndex        =   63
      Top             =   4920
      Width           =   4095
   End
   Begin SSFrame Frame3D3
      ForeColor       =   &H00000000&
      Height          =   1035
      Left            =   2760
      TabIndex        =   0
      Top             =   1980
      Width           =   6315
      Begin TextBox txtLocation
         DataField       =   "Location"
         DataSource      =   "dtaWarning"
         ForeColor       =   &H00FF0000&
         Height          =   285
         Left            =   960
         TabIndex        =   11
         Top             =   720
         Width           =   5235
      End
      Begin TextBox txtPlate
         BackColor       =   &H00FFFFFF&
         DataField       =   "Plate"
         DataSource      =   "dtaWarning"
         ForeColor       =   &H00FF0000&
         Height          =   285
         Left            =   960
         TabIndex        =   5
         Top             =   120
         Width           =   1635
      End
      Begin TextBox txtPlateSt
         BackColor       =   &H00FFFFFF&
         DataField       =   "PlateSt"
         DataSource      =   "dtaWarning"
         ForeColor       =   &H00FF0000&
         Height          =   285
         Left            =   3360
         TabIndex        =   6
         Top             =   120
         Width           =   435
      End
      Begin TextBox txtColor
         BackColor       =   &H00FFFFFF&
         DataField       =   "Color"
         DataSource      =   "dtaWarning"
         ForeColor       =   &H00FF0000&
         Height          =   285
         Left            =   5040
         TabIndex        =   7
         Top             =   120
         Width           =   1155
      End
      Begin TextBox txtMake
         BackColor       =   &H00FFFFFF&
         DataField       =   "Make"
         DataSource      =   "dtaWarning"
         ForeColor       =   &H00FF0000&
         Height          =   285
         Left            =   960
         TabIndex        =   8
         Top             =   420
         Width           =   1635
      End
      Begin TextBox txtModel
         BackColor       =   &H00FFFFFF&
         DataField       =   "Model"
         DataSource      =   "dtaWarning"
         ForeColor       =   &H00FF0000&
         Height          =   285
         Left            =   3360
         TabIndex        =   9
         Top             =   420
         Width           =   1155
      End
      Begin TextBox txtYear
         BackColor       =   &H00FFFFFF&
         DataField       =   "Year"
         DataSource      =   "dtaWarning"
         ForeColor       =   &H00FF0000&
         Height          =   285
         Left            =   5040
         TabIndex        =   10
         Top             =   420
         Width           =   615
      End
      Begin Label Label50
         BackColor       =   &H00C0C0C0&
         Caption         =   "Location:"
         Height          =   195
         Left            =   120
         TabIndex        =   131
         Top             =   780
         Width           =   855
      End
      Begin Label Label8
         BackColor       =   &H00C0C0C0&
         Caption         =   "Plate:"
         Height          =   255
         Left            =   420
         TabIndex        =   73
         Top             =   120
         Width           =   555
      End
      Begin Label Label9
         BackColor       =   &H00C0C0C0&
         Caption         =   "State:"
         Height          =   255
         Left            =   2760
         TabIndex        =   74
         Top             =   120
         Width           =   555
      End
      Begin Label Label10
         BackColor       =   &H00C0C0C0&
         Caption         =   "Color:"
         Height          =   255
         Left            =   4500
         TabIndex        =   75
         Top             =   120
         Width           =   555
      End
      Begin Label Label11
         BackColor       =   &H00C0C0C0&
         Caption         =   "Make:"
         Height          =   255
         Left            =   420
         TabIndex        =   76
         Top             =   420
         Width           =   555
      End
      Begin Label Label12
         BackColor       =   &H00C0C0C0&
         Caption         =   "Model:"
         Height          =   255
         Left            =   2760
         TabIndex        =   77
         Top             =   420
         Width           =   615
      End
      Begin Label Label13
         BackColor       =   &H00C0C0C0&
         Caption         =   "Year:"
         Height          =   255
         Left            =   4560
         TabIndex        =   78
         Top             =   420
         Width           =   495
      End
   End
   Begin PictureBox picTabs
      BackColor       =   &H00C0C0C0&
      BorderStyle     =   0  'None
      Height          =   495
      Left            =   180
      Picture         =   VBWARN.FRX:0302
      ScaleHeight     =   495
      ScaleWidth      =   1935
      TabIndex        =   98
      Top             =   2580
      Width           =   1935
      Begin SSFrame Frame3D1
         Caption         =   "Frame3D1"
         Height          =   1875
         Left            =   0
         TabIndex        =   124
         Top             =   480
         Width           =   6795
      End
      Begin Line Line2
         X1              =   0
         X2              =   0
         Y1              =   480
         Y2              =   2340
      End
      Begin Line Line1
         X1              =   0
         X2              =   0
         Y1              =   480
         Y2              =   2400
      End
      Begin Label lblPage2
         Alignment       =   2  'Center
         BackColor       =   &H00C0C0C0&
         Caption         =   "Page &2"
         Height          =   255
         Left            =   960
         TabIndex        =   38
         Top             =   60
         Width           =   915
      End
      Begin Label lblPage1
         Alignment       =   2  'Center
         BackColor       =   &H00C0C0C0&
         Caption         =   "Page &1"
         Height          =   375
         Left            =   60
         TabIndex        =   12
         Top             =   60
         Width           =   855
      End
   End
   Begin SSFrame Frame3D2
      Height          =   1515
      Left            =   180
      ShadowColor     =   1  'Black
      TabIndex        =   79
      Top             =   420
      Width           =   8895
      Begin Data dtaPerson
         Caption         =   "dtaPerson"
         Connect         =   ""
         DatabaseName    =   "vbwarn.mdb"
         Exclusive       =   0   'False
         Height          =   270
         Left            =   360
         Options         =   0
         ReadOnly        =   0   'False
         RecordSource    =   "Person"
         Top             =   1140
         Visible         =   0   'False
         Width           =   1140
      End
      Begin TextBox txtID
         DataField       =   "PersonID"
         DataSource      =   "dtaWarning"
         Enabled         =   0   'False
         Height          =   285
         Left            =   2400
         TabIndex        =   80
         Top             =   1140
         Visible         =   0   'False
         Width           =   195
      End
      Begin CommandButton cmbNewPerson
         BackColor       =   &H00C0C0C0&
         Caption         =   "New &Person"
         Height          =   315
         Left            =   7320
         TabIndex        =   4
         Top             =   1140
         Width           =   1455
      End
      Begin ComboBox cmbPerson
         BackColor       =   &H00C0C0C0&
         ForeColor       =   &H00000000&
         Height          =   300
         Left            =   120
         Sorted          =   -1  'True
         TabIndex        =   3
         Top             =   1140
         Width           =   3255
      End
      Begin Label lblSex
         BackColor       =   &H00E0FFFF&
         BorderStyle     =   1  'Fixed Single
         DataField       =   "Sex"
         DataSource      =   "dtaPerson"
         Height          =   195
         Left            =   8460
         TabIndex        =   81
         Top             =   900
         Width           =   315
      End
      Begin Label Label24
         BackColor       =   &H00C0C0C0&
         Caption         =   "Sex:"
         Height          =   255
         Left            =   8040
         TabIndex        =   82
         Top             =   840
         Width           =   435
      End
      Begin Label lblEyes
         BackColor       =   &H00E0FFFF&
         BorderStyle     =   1  'Fixed Single
         DataField       =   "Eyes"
         DataSource      =   "dtaPerson"
         Height          =   195
         Left            =   7140
         TabIndex        =   83
         Top             =   900
         Width           =   795
      End
      Begin Label lblDOB
         BackColor       =   &H00E0FFFF&
         BorderStyle     =   1  'Fixed Single
         DataField       =   "DOB"
         DataSource      =   "dtaPerson"
         Height          =   195
         Left            =   7140
         TabIndex        =   84
         Top             =   660
         Width           =   915
      End
      Begin Label lblZip
         BackColor       =   &H00E0FFFF&
         BorderStyle     =   1  'Fixed Single
         DataField       =   "Zip"
         DataSource      =   "dtaPerson"
         Height          =   195
         Left            =   7140
         TabIndex        =   85
         Top             =   420
         Width           =   795
      End
      Begin Label lblInitial
         BackColor       =   &H00E0FFFF&
         BorderStyle     =   1  'Fixed Single
         DataField       =   "Initial"
         DataSource      =   "dtaPerson"
         Height          =   195
         Left            =   7140
         TabIndex        =   86
         Top             =   180
         Width           =   435
      End
      Begin Label Label15
         BackColor       =   &H00C0C0C0&
         Caption         =   "Init:"
         Height          =   255
         Left            =   6780
         TabIndex        =   87
         Top             =   180
         Width           =   375
      End
      Begin Label Label19
         BackColor       =   &H00C0C0C0&
         Caption         =   "Zip:"
         Height          =   195
         Left            =   6780
         TabIndex        =   88
         Top             =   420
         Width           =   375
      End
      Begin Label Label23
         BackColor       =   &H00C0C0C0&
         Caption         =   "DOB:"
         Height          =   195
         Left            =   6660
         TabIndex        =   89
         Top             =   660
         Width           =   495
      End
      Begin Label Label30
         BackColor       =   &H00C0C0C0&
         Caption         =   "Eyes:"
         Height          =   195
         Left            =   6600
         TabIndex        =   90
         Top             =   900
         Width           =   555
      End
      Begin Label lblHair
         BackColor       =   &H00E0FFFF&
         BorderStyle     =   1  'Fixed Single
         DataField       =   "Hair"
         DataSource      =   "dtaPerson"
         Height          =   195
         Left            =   5760
         TabIndex        =   91
         Top             =   900
         Width           =   675
      End
      Begin Label lblDlType
         BackColor       =   &H00E0FFFF&
         BorderStyle     =   1  'Fixed Single
         DataField       =   "DLType"
         DataSource      =   "dtaPerson"
         Height          =   195
         Left            =   5760
         TabIndex        =   92
         Top             =   660
         Width           =   795
      End
      Begin Label lblState
         BackColor       =   &H00E0FFFF&
         BorderStyle     =   1  'Fixed Single
         DataField       =   "State"
         DataSource      =   "dtaPerson"
         Height          =   195
         Left            =   5760
         TabIndex        =   93
         Top             =   420
         Width           =   555
      End
      Begin Label lblFName
         BackColor       =   &H00E0FFFF&
         BorderStyle     =   1  'Fixed Single
         DataField       =   "FName"
         DataSource      =   "dtaPerson"
         Height          =   195
         Left            =   5760
         TabIndex        =   94
         Top             =   180
         Width           =   915
      End
      Begin Label Label14
         BackColor       =   &H00C0C0C0&
         Caption         =   "First:"
         Height          =   255
         Left            =   5280
         TabIndex        =   95
         Top             =   180
         Width           =   495
      End
      Begin Label Label18
         BackColor       =   &H00C0C0C0&
         Caption         =   "State:"
         Height          =   255
         Left            =   5220
         TabIndex        =   96
         Top             =   420
         Width           =   555
      End
      Begin Label Label22
         BackColor       =   &H00C0C0C0&
         Caption         =   "Type:"
         Height          =   195
         Left            =   5220
         TabIndex        =   97
         Top             =   660
         Width           =   555
      End
      Begin Label Label29
         BackColor       =   &H00C0C0C0&
         Caption         =   "Hair:"
         Height          =   195
         Left            =   5280
         TabIndex        =   103
         Top             =   900
         Width           =   495
      End
      Begin Label lblWeight
         BackColor       =   &H00E0FFFF&
         BorderStyle     =   1  'Fixed Single
         DataField       =   "Weight"
         DataSource      =   "dtaPerson"
         Height          =   195
         Left            =   3720
         TabIndex        =   104
         Top             =   900
         Width           =   495
      End
      Begin Label lblDlSt
         BackColor       =   &H00E0FFFF&
         BorderStyle     =   1  'Fixed Single
         DataField       =   "DlSt"
         DataSource      =   "dtaPerson"
         Height          =   195
         Left            =   3720
         TabIndex        =   105
         Top             =   660
         Width           =   555
      End
      Begin Label lblCity
         BackColor       =   &H00E0FFFF&
         BorderStyle     =   1  'Fixed Single
         DataField       =   "City"
         DataSource      =   "dtaPerson"
         Height          =   195
         Left            =   3720
         TabIndex        =   106
         Top             =   420
         Width           =   1455
      End
      Begin Label lblLName
         BackColor       =   &H00E0FFFF&
         BorderStyle     =   1  'Fixed Single
         DataField       =   "LName"
         DataSource      =   "dtaPerson"
         Height          =   195
         Left            =   3720
         TabIndex        =   107
         Top             =   180
         Width           =   1455
      End
      Begin Label Label1
         BackColor       =   &H00C0C0C0&
         Caption         =   "Ticket #"
         Height          =   255
         Left            =   4860
         TabIndex        =   108
         Top             =   -180
         Width           =   735
      End
      Begin Label Label52
         BackColor       =   &H00C0C0C0&
         Caption         =   "Last:"
         Height          =   255
         Left            =   3180
         TabIndex        =   109
         Top             =   180
         Width           =   495
      End
      Begin Label Label17
         BackColor       =   &H00C0C0C0&
         Caption         =   "City:"
         Height          =   255
         Left            =   3240
         TabIndex        =   110
         Top             =   420
         Width           =   495
      End
      Begin Label Label21
         BackColor       =   &H00C0C0C0&
         Caption         =   "State:"
         Height          =   255
         Left            =   3120
         TabIndex        =   111
         Top             =   660
         Width           =   555
      End
      Begin Label Label28
         BackColor       =   &H00C0C0C0&
         Caption         =   "Weight:"
         Height          =   255
         Left            =   3000
         TabIndex        =   112
         Top             =   900
         Width           =   735
      End
      Begin Label lblInches
         BackColor       =   &H00E0FFFF&
         BorderStyle     =   1  'Fixed Single
         DataField       =   "Inches"
         DataSource      =   "dtaPerson"
         Height          =   195
         Left            =   1500
         TabIndex        =   113
         Top             =   900
         Width           =   315
      End
      Begin Label lblFeet
         BackColor       =   &H00E0FFFF&
         BorderStyle     =   1  'Fixed Single
         DataField       =   "Feet"
         DataSource      =   "dtaPerson"
         Height          =   195
         Left            =   900
         TabIndex        =   114
         Top             =   900
         Width           =   375
      End
      Begin Label lblDL
         BackColor       =   &H00E0FFFF&
         BorderStyle     =   1  'Fixed Single
         DataField       =   "DL"
         DataSource      =   "dtaPerson"
         Height          =   195
         Left            =   900
         TabIndex        =   115
         Top             =   660
         Width           =   2115
      End
      Begin Label lblAddress
         BackColor       =   &H00E0FFFF&
         BorderStyle     =   1  'Fixed Single
         DataField       =   "Address"
         DataSource      =   "dtaPerson"
         Height          =   195
         Left            =   900
         TabIndex        =   116
         Top             =   420
         Width           =   2115
      End
      Begin Label lblID
         BackColor       =   &H00E0FFFF&
         BorderStyle     =   1  'Fixed Single
         DataField       =   "ID"
         DataSource      =   "dtaPerson"
         ForeColor       =   &H00000000&
         Height          =   195
         Left            =   900
         TabIndex        =   117
         Top             =   180
         Width           =   1275
      End
      Begin Label Label38
         BackColor       =   &H00C0C0C0&
         Caption         =   "ID:"
         Height          =   255
         Left            =   540
         TabIndex        =   118
         Top             =   180
         Width           =   315
      End
      Begin Label Label37
         BackColor       =   &H00C0C0C0&
         Caption         =   "Address:"
         Height          =   255
         Left            =   60
         TabIndex        =   119
         Top             =   420
         Width           =   795
      End
      Begin Label Label36
         BackColor       =   &H00C0C0C0&
         Caption         =   "DL#:"
         Height          =   195
         Left            =   360
         TabIndex        =   120
         Top             =   660
         Width           =   495
      End
      Begin Label Label35
         BackColor       =   &H00C0C0C0&
         Caption         =   "Height:"
         Height          =   195
         Left            =   180
         TabIndex        =   121
         Top             =   900
         Width           =   615
      End
      Begin Label Label34
         BackColor       =   &H00C0C0C0&
         Caption         =   "'"
         Height          =   135
         Left            =   1320
         TabIndex        =   122
         Top             =   900
         Width           =   135
      End
      Begin Label Label33
         BackColor       =   &H00C0C0C0&
         Caption         =   "''"
         Height          =   195
         Left            =   1860
         TabIndex        =   123
         Top             =   900
         Width           =   195
      End
   End
   Begin TextBox txtDaysToFix
      BackColor       =   &H00FFFFFF&
      DataField       =   "DaysToFix"
      DataSource      =   "dtaWarning"
      ForeColor       =   &H00FF0000&
      Height          =   285
      Left            =   2400
      TabIndex        =   62
      Top             =   4920
      Width           =   315
   End
   Begin TextBox txtNum
      BackColor       =   &H00FFFFFF&
      DataField       =   "WarningNum"
      DataSource      =   "dtaWarning"
      ForeColor       =   &H00FF0000&
      Height          =   285
      Left            =   7320
      TabIndex        =   2
      Top             =   120
      Width           =   1755
   End
   Begin TextBox txtDateTime
      BackColor       =   &H00FFFFFF&
      DataField       =   "DateTime"
      DataSource      =   "dtaWarning"
      ForeColor       =   &H00FF0000&
      Height          =   285
      Left            =   3900
      TabIndex        =   1
      Top             =   120
      Width           =   1995
   End
   Begin TextBox txtDoPg2
      BackColor       =   &H00C0C0C0&
      BorderStyle     =   0  'None
      Height          =   285
      Left            =   1860
      TabIndex        =   39
      Top             =   2580
      Width           =   180
   End
   Begin TextBox txtDoPg1
      BackColor       =   &H00C0C0C0&
      BorderStyle     =   0  'None
      Height          =   285
      Left            =   480
      TabIndex        =   13
      Top             =   2520
      Width           =   180
   End
   Begin PictureBox picPage1
      BackColor       =   &H00C0C0C0&
      Height          =   1815
      Left            =   180
      ScaleHeight     =   1785
      ScaleWidth      =   8865
      TabIndex        =   125
      TabStop         =   0   'False
      Top             =   3060
      Width           =   8895
      Begin TextBox txtSpeedFrom
         DataField       =   "SpeedFrom"
         DataSource      =   "dtaWarning"
         Height          =   285
         Left            =   1200
         TabIndex        =   15
         Top             =   0
         Width           =   435
      End
      Begin TextBox txtSigWhere
         DataField       =   "SigWhere"
         DataSource      =   "dtaWarning"
         Height          =   285
         Left            =   4560
         TabIndex        =   30
         Top             =   1440
         Width           =   1695
      End
      Begin TextBox txtSpeedIn
         DataField       =   "SpeedIn"
         DataSource      =   "dtaWarning"
         Height          =   285
         Left            =   2100
         TabIndex        =   16
         Top             =   0
         Width           =   435
      End
      Begin SSCheck chkVio
         Caption         =   "Too Fast for Conditions"
         DataField       =   "TooFast"
         DataSource      =   "dtaWarning"
         Height          =   195
         Index           =   101
         Left            =   60
         TabIndex        =   17
         Top             =   300
         Width           =   2355
      End
      Begin SSCheck chkVio
         Caption         =   "Speeding"
         DataField       =   "Speed"
         DataSource      =   "dtaWarning"
         Height          =   195
         Index           =   100
         Left            =   60
         TabIndex        =   14
         Top             =   60
         Width           =   1275
      End
      Begin SSCheck chkVio
         Caption         =   "Improper Lane Usage"
         DataField       =   "ImpLane"
         DataSource      =   "dtaWarning"
         Height          =   195
         Index           =   103
         Left            =   60
         TabIndex        =   19
         Top             =   780
         Width           =   2175
      End
      Begin SSCheck chkVio
         Caption         =   "Unsafe Backing"
         DataField       =   "UnsBack"
         DataSource      =   "dtaWarning"
         Height          =   195
         Index           =   104
         Left            =   60
         TabIndex        =   20
         Top             =   1020
         Width           =   1815
      End
      Begin SSCheck chkVio
         Caption         =   "Illegal U-turn"
         DataField       =   "UTurn"
         DataSource      =   "dtaWarning"
         Height          =   195
         Index           =   105
         Left            =   60
         TabIndex        =   21
         Top             =   1260
         Width           =   1455
      End
      Begin SSCheck chkVio
         Caption         =   "Driving Off Roadway"
         DataField       =   "OffRoad"
         DataSource      =   "dtaWarning"
         Height          =   195
         Index           =   106
         Left            =   60
         TabIndex        =   22
         Top             =   1500
         Width           =   2055
      End
      Begin SSCheck chkVio
         Caption         =   "No Lights When Required"
         DataField       =   "NoLights"
         DataSource      =   "dtaWarning"
         Height          =   195
         Index           =   114
         Left            =   6300
         TabIndex        =   31
         Top             =   60
         Width           =   2475
      End
      Begin SSCheck chkVio
         Caption         =   "Driving In Wrong Lane"
         DataField       =   "WrongLane"
         DataSource      =   "dtaWarning"
         Height          =   195
         Index           =   107
         Left            =   3060
         TabIndex        =   23
         Top             =   60
         Width           =   2235
      End
      Begin SSCheck chkVio
         Caption         =   "Illegal Parking"
         DataField       =   "Parking"
         DataSource      =   "dtaWarning"
         Height          =   195
         Index           =   110
         Left            =   3060
         TabIndex        =   26
         Top             =   780
         Width           =   1515
      End
      Begin SSCheck chkVio
         Caption         =   "Disobeyed Yield Sign"
         DataField       =   "YieldSign"
         DataSource      =   "dtaWarning"
         Height          =   195
         Index           =   109
         Left            =   3060
         TabIndex        =   25
         Top             =   540
         Width           =   2175
      End
      Begin SSCheck chkVio
         Caption         =   "Disobeyed Stop Sign"
         DataField       =   "StopSign"
         DataSource      =   "dtaWarning"
         Height          =   195
         Index           =   108
         Left            =   3060
         TabIndex        =   24
         Top             =   300
         Width           =   2115
      End
      Begin SSCheck chkVio
         Caption         =   "Improper Passing"
         DataField       =   "Passing"
         DataSource      =   "dtaWarning"
         Height          =   195
         Index           =   111
         Left            =   3060
         TabIndex        =   27
         Top             =   1020
         Width           =   1755
      End
      Begin SSCheck chkVio
         Caption         =   "No Seat Belt"
         DataField       =   "SeatBelt"
         DataSource      =   "dtaWarning"
         Height          =   195
         Index           =   112
         Left            =   3060
         TabIndex        =   28
         Top             =   1260
         Width           =   1395
      End
      Begin SSCheck chkVio
         Caption         =   "Fail To Signal"
         DataField       =   "Signal"
         DataSource      =   "dtaWarning"
         Height          =   195
         Index           =   113
         Left            =   3060
         TabIndex        =   29
         Top             =   1500
         Width           =   1455
      End
      Begin SSCheck chkVio
         Caption         =   "Failure to Dim Headlights"
         DataField       =   "DimLights"
         DataSource      =   "dtaWarning"
         Height          =   195
         Index           =   115
         Left            =   6300
         TabIndex        =   32
         Top             =   300
         Width           =   2415
      End
      Begin SSCheck chkVio
         Caption         =   "One Headlight"
         DataField       =   "OneHead"
         DataSource      =   "dtaWarning"
         Height          =   195
         Index           =   116
         Left            =   6300
         TabIndex        =   33
         Top             =   540
         Width           =   1575
      End
      Begin SSCheck chkVio
         Caption         =   "One Taillight"
         DataField       =   "OneTail"
         DataSource      =   "dtaWarning"
         Height          =   195
         Index           =   117
         Left            =   6300
         TabIndex        =   34
         Top             =   780
         Width           =   1455
      End
      Begin SSCheck chkVio
         Caption         =   "Broken Taillight"
         DataField       =   "BrokeTail"
         DataSource      =   "dtaWarning"
         Height          =   195
         Index           =   118
         Left            =   6300
         TabIndex        =   35
         Top             =   1020
         Width           =   1635
      End
      Begin SSCheck chkVio
         Caption         =   "No Brake Light"
         DataField       =   "NoBrake"
         DataSource      =   "dtaWarning"
         Height          =   195
         Index           =   119
         Left            =   6300
         TabIndex        =   36
         Top             =   1260
         Width           =   1635
      End
      Begin SSCheck chkVio
         Caption         =   "No Registration Lamp"
         DataField       =   "NoRegLight"
         DataSource      =   "dtaWarning"
         Height          =   195
         Index           =   120
         Left            =   6300
         TabIndex        =   37
         Top             =   1500
         Width           =   2115
      End
      Begin SSCheck chkVio
         Caption         =   "Following Too Closely"
         DataField       =   "TooClose"
         DataSource      =   "dtaWarning"
         Height          =   195
         Index           =   102
         Left            =   60
         TabIndex        =   18
         Top             =   540
         Width           =   2175
      End
      Begin Label Label20
         BackColor       =   &H00C0C0C0&
         Caption         =   "in a"
         Height          =   195
         Left            =   1680
         TabIndex        =   126
         Top             =   60
         Width           =   375
      End
   End
   Begin PictureBox picPage2
      BackColor       =   &H00C0C0C0&
      Height          =   1815
      Left            =   180
      ScaleHeight     =   1785
      ScaleWidth      =   8865
      TabIndex        =   102
      TabStop         =   0   'False
      Top             =   3060
      Visible         =   0   'False
      Width           =   8895
      Begin SSCheck chkVio
         Caption         =   "Snow Removal"
         DataField       =   "Snow"
         DataSource      =   "dtaWarning"
         Height          =   195
         Index           =   138
         Left            =   6000
         TabIndex        =   57
         Top             =   840
         Width           =   1635
      End
      Begin TextBox Other1Txt
         DataField       =   "Other1Txt"
         DataSource      =   "dtaWarning"
         Height          =   285
         Left            =   6960
         TabIndex        =   59
         Text            =   " "
         Top             =   1080
         Width           =   1875
      End
      Begin SSCheck chkVio
         Caption         =   "Road Hazard"
         DataField       =   "RoadHaz"
         DataSource      =   "dtaWarning"
         Height          =   195
         Index           =   135
         Left            =   6000
         TabIndex        =   54
         Top             =   120
         Width           =   1515
      End
      Begin SSCheck chkVio
         Caption         =   "Health Hazard"
         DataField       =   "HealthHaz"
         DataSource      =   "dtaWarning"
         Height          =   195
         Index           =   136
         Left            =   6000
         TabIndex        =   55
         Top             =   360
         Width           =   1575
      End
      Begin SSCheck chkVio
         Caption         =   "Soliciting W/O Permit"
         DataField       =   "Soliciting"
         DataSource      =   "dtaWarning"
         Height          =   195
         Index           =   137
         Left            =   6000
         TabIndex        =   56
         Top             =   600
         Width           =   2175
      End
      Begin SSCheck chkVio
         Caption         =   "Other 1:"
         DataField       =   "Other1"
         DataSource      =   "dtaWarning"
         Height          =   195
         Index           =   139
         Left            =   6000
         TabIndex        =   58
         Top             =   1140
         Width           =   915
      End
      Begin SSCheck chkVio
         Caption         =   "Other 2:"
         DataField       =   "Other2"
         DataSource      =   "dtaWarning"
         Height          =   195
         Index           =   140
         Left            =   6000
         TabIndex        =   60
         Top             =   1500
         Width           =   915
      End
      Begin SSCheck chkVio
         Caption         =   "Altered Suspension"
         DataField       =   "Altered"
         DataSource      =   "dtaWarning"
         Height          =   195
         Index           =   128
         Left            =   3060
         TabIndex        =   47
         Top             =   60
         Width           =   1995
      End
      Begin SSCheck chkVio
         Caption         =   "Unsafe Tire"
         DataField       =   "UnsafeTire"
         DataSource      =   "dtaWarning"
         Height          =   195
         Index           =   129
         Left            =   3060
         TabIndex        =   48
         Top             =   300
         Width           =   1335
      End
      Begin SSCheck chkVio
         Caption         =   "Bicycle Violation"
         DataField       =   "Bicycle"
         DataSource      =   "dtaWarning"
         Height          =   195
         Index           =   131
         Left            =   3060
         TabIndex        =   50
         Top             =   780
         Width           =   2235
      End
      Begin SSCheck chkVio
         Caption         =   "Animal Violation"
         DataField       =   "Animal"
         DataSource      =   "dtaWarning"
         Height          =   195
         Index           =   132
         Left            =   3060
         TabIndex        =   51
         Top             =   1020
         Width           =   1755
      End
      Begin SSCheck chkVio
         Caption         =   "Junk Violation"
         DataField       =   "Junk"
         DataSource      =   "dtaWarning"
         Height          =   195
         Index           =   133
         Left            =   3060
         TabIndex        =   52
         Top             =   1260
         Width           =   1515
      End
      Begin SSCheck chkVio
         Caption         =   "Fire Hazard"
         DataField       =   "Fire"
         DataSource      =   "dtaWarning"
         Height          =   195
         Index           =   134
         Left            =   3060
         TabIndex        =   53
         Top             =   1500
         Width           =   1275
      End
      Begin SSCheck chkVio
         Caption         =   "Imp. Display Of Lic. Plates"
         DataField       =   "ImpPlates"
         DataSource      =   "dtaWarning"
         Height          =   195
         Index           =   121
         Left            =   60
         TabIndex        =   40
         Top             =   60
         Width           =   2535
      End
      Begin SSCheck chkVio
         Caption         =   "Obstructed Lic Plate"
         DataField       =   "ObsPlate"
         DataSource      =   "dtaWarning"
         Height          =   195
         Index           =   122
         Left            =   60
         TabIndex        =   41
         Top             =   300
         Width           =   2115
      End
      Begin SSCheck chkVio
         Caption         =   "Expired License"
         DataField       =   "ExpLicense"
         DataSource      =   "dtaWarning"
         Height          =   195
         Index           =   123
         Left            =   60
         TabIndex        =   42
         Top             =   540
         Width           =   1695
      End
      Begin SSCheck chkVio
         Caption         =   "Permit/Decal Violation"
         DataField       =   "PermitVio"
         DataSource      =   "dtaWarning"
         Height          =   195
         Index           =   124
         Left            =   60
         TabIndex        =   43
         Top             =   780
         Width           =   2235
      End
      Begin SSCheck chkVio
         Caption         =   "No Valid Registration"
         DataField       =   "NoReg"
         DataSource      =   "dtaWarning"
         Height          =   195
         Index           =   125
         Left            =   60
         TabIndex        =   44
         Top             =   1020
         Width           =   2175
      End
      Begin SSCheck chkVio
         Caption         =   "No D.L. On Person"
         DataField       =   "NoDL"
         DataSource      =   "dtaWarning"
         Height          =   195
         Index           =   126
         Left            =   60
         TabIndex        =   45
         Top             =   1260
         Width           =   1935
      End
      Begin SSCheck chkVio
         Caption         =   "Unsafe Equipment"
         DataField       =   "Unsafe"
         DataSource      =   "dtaWarning"
         Height          =   195
         Index           =   127
         Left            =   60
         TabIndex        =   46
         Top             =   1500
         Width           =   1875
      End
      Begin TextBox txtOther2Txt
         BackColor       =   &H00FFFFFF&
         DataField       =   "Other2Txt"
         DataSource      =   "dtaWarning"
         Height          =   285
         Left            =   6960
         TabIndex        =   61
         Top             =   1440
         Width           =   1875
      End
      Begin SSCheck chkVio
         Caption         =   "Defective Exhaust System"
         DataField       =   "BadExhaust"
         DataSource      =   "dtaWarning"
         Height          =   195
         Index           =   130
         Left            =   3060
         TabIndex        =   49
         Top             =   540
         Width           =   2535
      End
   End
   Begin Image imgIcon
      Height          =   375
      Left            =   240
      Picture         =   VBWARN.FRX:2F3C
      Stretch         =   -1  'True
      Top             =   60
      Width           =   675
   End
   Begin Label Label51
      BackColor       =   &H00C0C0C0&
      Caption         =   "Warning"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   13.5
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   375
      Left            =   1140
      TabIndex        =   130
      Top             =   60
      Width           =   1275
   End
   Begin Line Line6
      BorderWidth     =   3
      X1              =   60
      X2              =   9180
      Y1              =   0
      Y2              =   0
   End
   Begin Line Line5
      BorderWidth     =   3
      X1              =   60
      X2              =   60
      Y1              =   5280
      Y2              =   0
   End
   Begin Line Line4
      BorderWidth     =   3
      X1              =   9180
      X2              =   9180
      Y1              =   5280
      Y2              =   0
   End
   Begin Line Line3
      BorderWidth     =   3
      X1              =   9180
      X2              =   60
      Y1              =   5280
      Y2              =   5280
   End
   Begin Label Label42
      BackColor       =   &H00C0C0C0&
      Caption         =   "Ticket Number:"
      Height          =   195
      Left            =   5940
      TabIndex        =   127
      Top             =   120
      Width           =   1395
   End
   Begin Image imgPage2
      Height          =   480
      Left            =   675
      Picture         =   VBWARN.FRX:323E
      Top             =   3450
      Visible         =   0   'False
      Width           =   4800
   End
   Begin Image imgPage1
      Height          =   480
      Left            =   975
      Picture         =   VBWARN.FRX:46B8
      Top             =   3450
      Visible         =   0   'False
      Width           =   4800
   End
   Begin Label Label46
      BackColor       =   &H00C0C0C0&
      Caption         =   "Officer:"
      Height          =   255
      Left            =   4080
      TabIndex        =   99
      Top             =   4920
      Width           =   675
   End
   Begin Label Label45
      BackColor       =   &H00C0C0C0&
      Caption         =   "days."
      Height          =   315
      Left            =   2760
      TabIndex        =   100
      Top             =   4920
      Width           =   555
   End
   Begin Label Label44
      BackColor       =   &H00C0C0C0&
      Caption         =   "Remedy equipment within"
      Height          =   255
      Left            =   180
      TabIndex        =   101
      Top             =   4920
      Width           =   2235
   End
   Begin Label Label2
      BackColor       =   &H00C0C0C0&
      Caption         =   "Date/Time:"
      Height          =   195
      Left            =   2880
      TabIndex        =   72
      Top             =   120
      Width           =   975
   End
   Begin Menu mnuFile
      Caption         =   "&Record"
      Begin Menu mnuNew
         Caption         =   "&New"
      End
      Begin Menu mnuDelete
         Caption         =   "&Delete"
      End
      Begin Menu mnuSave
         Caption         =   "&Save"
      End
      Begin Menu mnuCancel
         Caption         =   "&Cancel"
      End
      Begin Menu mnuNewPerson
         Caption         =   "New &Person"
      End
      Begin Menu mnuDash
         Caption         =   "-"
      End
      Begin Menu mnuExit
         Caption         =   "E&xit"
      End
   End
   Begin Menu mnuView
      Caption         =   "&View"
      Begin Menu mnuPage1
         Caption         =   "Violation Page &1"
      End
      Begin Menu mnuPage2
         Caption         =   "Violation Page &2"
      End
   End
   Begin Menu mnuTables
      Caption         =   "&Tables"
      Begin Menu mnuPersons
         Caption         =   "&Persons"
      End
      Begin Menu mnuOfficers
         Caption         =   "&Officers"
      End
   End
   Begin Menu mnuHelp
      Caption         =   "&Help"
      Begin Menu mnuAbout
         Caption         =   "&About"
      End
   End
End
Option Explicit
Dim CurrRec As String
Dim CurPerson As Variant
Dim Starting As Integer
Dim LastNum As String

Sub chkVio_Click (Index As Integer, Value As Integer)
        If chkVio(Index).DataChanged Then Call Editing
End Sub

Sub chkVio_GotFocus (Index As Integer)
    If (Index = 100) Then lblPage1_Click
    If (Index = 121) Then lblPage2_Click
    chkVio(Index).Font3D = 1
End Sub

Sub chkVio_LostFocus (Index As Integer)
    chkVio(Index).Font3D = 0
End Sub

Sub ClrPerson ()
   cmbPerson.Text = ""
   cmbOfficer.Text = ""
   lblLName = ""
   lblID = ""
   lblAddress = ""
   lblCity = ""
   lblDL = ""
   lblDlSt = ""
   lblFeet = ""
   lblInches = ""
   lblWeight = ""
   lblFName = ""
   lblState = ""
   lblDlType = ""
   lblHair = ""
   lblInitial = ""
   lblZip = ""
   lblDOB = ""
   lblEyes = ""
   lblSex = ""
End Sub

Sub cmbNewPerson_Click ()
    Call Editing
    frmNewP.Show 1
    If GlobalPersonID <> 0 Then
        txtID.Text = GlobalPersonID
        dtaPerson.Refresh
        dtaPerson.Recordset.FindFirst "ID = " & GlobalPersonID
        GlobalPersonID = 0
        cmbPerson.Text = GetPersonStr(dtaPerson.Recordset)
    End If
End Sub

Sub cmbOfficer_Click ()
    Dim ID As Variant
    Dim Namex As String
    ID = Right$(cmbOfficer.Text, ((Len(cmbOfficer.Text)) - (InStr(1, cmbOfficer.Text, "-")) - 1))
    txtOffID = ID
    OffTable.FindFirst "OffID = " & "'" & ID & "'"
    Call Editing
    If Not IsNull(OffTable!Name) Then
        Namex = Trim$(OffTable!Name)
    End If
    Namex = Namex & " - " & OffTable("OffID")
    cmbOfficer.Text = Namex
End Sub

Sub cmbPerson_Click ()
    Dim ID As Variant
    ID = Right$(cmbPerson.Text, ((Len(cmbPerson.Text)) - (InStr(1, cmbPerson.Text, "-")) - 1))
    txtID.Text = ID
    dtaPerson.Refresh
    dtaPerson.Recordset.FindFirst "ID = " & ID
    Call Editing
End Sub

Sub cmbSortBy_Click ()
    Dim Src As String

    If cmbSortBy.Text = "Date/Time Descending" Then Src = QTikPerson & "ORDER BY Tik.DateTime DESC"
    If cmbSortBy.Text = "Ticket Number" Then Src = QTikPerson & "ORDER BY WarningNum"
    If cmbSortBy.Text = "Last Name" Then Src = QTikPerson & "ORDER BY LName"
    If cmbSortBy.Text = "First Name" Then Src = QTikPerson & "ORDER BY FName"
    If cmbSortBy.Text = "Address" Then Src = QTikPerson & "ORDER BY Address"
    If cmbSortBy.Text = "City" Then Src = QTikPerson & "ORDER BY City"
    If cmbSortBy.Text = "State" Then Src = QTikPerson & "ORDER BY State"
    If cmbSortBy.Text = "Zip Code" Then Src = QTikPerson & "ORDER BY Zip"
    If cmbSortBy.Text = "DL Number" Then Src = QTikPerson & "ORDER BY DL"
    If cmbSortBy.Text = "DL State" Then Src = QTikPerson & "ORDER BY DLSt"
    If cmbSortBy.Text = "DL Type" Then Src = QTikPerson & "ORDER BY DLType"
    If cmbSortBy.Text = "Date Of Birth" Then Src = QTikPerson & "ORDER BY DOB"
    If cmbSortBy.Text = "Height" Then Src = QTikPerson & "ORDER BY Feet,Inches"
    If cmbSortBy.Text = "Weight" Then Src = QTikPerson & "ORDER BY Weight"
    If cmbSortBy.Text = "Hair Color" Then Src = QTikPerson & "ORDER BY Hair"
    If cmbSortBy.Text = "Eye Color" Then Src = QTikPerson & "ORDER BY Eyes"
    If cmbSortBy.Text = "Sex" Then Src = QTikPerson & "ORDER BY Sex"
    If cmbSortBy.Text = "Plate" Then Src = QTikPerson & "ORDER BY Plate"
    If cmbSortBy.Text = "Plate State" Then Src = QTikPerson & "ORDER BY PlateSt"
    If cmbSortBy.Text = "Color" Then Src = QTikPerson & "ORDER BY Color"
    If cmbSortBy.Text = "Make" Then Src = QTikPerson & "ORDER BY Make"
    If cmbSortBy.Text = "Model" Then Src = QTikPerson & "ORDER BY Model"

    If cmbSortBy.Text = "Model Year" Then Src = QTikPerson & "ORDER BY Year"
    If cmbSortBy.Text = "Speeding" Then Src = QTikPerson & "ORDER BY Speed"
    If cmbSortBy.Text = "Speed" Then Src = QTikPerson & "ORDER BY SpeedFrom"
    If cmbSortBy.Text = "Speed Limit" Then Src = QTikPerson & "ORDER BY SpeedIn"
    If cmbSortBy.Text = "Too Fast for Conditions" Then Src = QTikPerson & "ORDER BY TooFast"
    If cmbSortBy.Text = "Following Too Closely" Then Src = QTikPerson & "ORDER BY TooClose"
    If cmbSortBy.Text = "Improper Lane Usage" Then Src = QTikPerson & "ORDER BY ImpLane"
    If cmbSortBy.Text = "Unsafe Backing" Then Src = QTikPerson & "ORDER BY UnsBack"
    If cmbSortBy.Text = "Illegal U-Turn" Then Src = QTikPerson & "ORDER BY UTurn"
    If cmbSortBy.Text = "Driving Off Roadway" Then Src = QTikPerson & "ORDER BY OffRoad"
    If cmbSortBy.Text = "Driving In Wrong Lane" Then Src = QTikPerson & "ORDER BY WrongLane"
    If cmbSortBy.Text = "Disobeyed Stop Sign" Then Src = QTikPerson & "ORDER BY StopSign"
    If cmbSortBy.Text = "Disobeyed Yield Sign" Then Src = QTikPerson & "ORDER BY YieldSign"
    If cmbSortBy.Text = "Illegal Parking" Then Src = QTikPerson & "ORDER BY Parking"
    If cmbSortBy.Text = "Improper Passing" Then Src = QTikPerson & "ORDER BY Passing"
    If cmbSortBy.Text = "No Seat Belt" Then Src = QTikPerson & "ORDER BY SeatBelt"
    If cmbSortBy.Text = "Fail To Signal" Then Src = QTikPerson & "ORDER BY Signal"
    If cmbSortBy.Text = "Signal Where" Then Src = QTikPerson & "ORDER BY SigWhere"
    If cmbSortBy.Text = "No Lights When Required" Then Src = QTikPerson & "ORDER BY NoLights"
    If cmbSortBy.Text = "Failure To Dim Headlights" Then Src = QTikPerson & "ORDER BY DimLights"
    If cmbSortBy.Text = "One Headlight" Then Src = QTikPerson & "ORDER BY OneHead"
    If cmbSortBy.Text = "One Taillight" Then Src = QTikPerson & "ORDER BY OneTail"
    If cmbSortBy.Text = "Broken Taillight" Then Src = QTikPerson & "ORDER BY BrokeTail"
    If cmbSortBy.Text = "No Brake Light" Then Src = QTikPerson & "ORDER BY NoBrake"
    If cmbSortBy.Text = "No Registration Lamp" Then Src = QTikPerson & "ORDER BY NoRegLight"
    If cmbSortBy.Text = "Imp. Display of Plates" Then Src = QTikPerson & "ORDER BY ImpPlates"
    If cmbSortBy.Text = "Obstructed Lic Plate" Then Src = QTikPerson & "ORDER BY ObsPlate"
    If cmbSortBy.Text = "Expired License" Then Src = QTikPerson & "ORDER BY ExpLicense"
    If cmbSortBy.Text = "Permit/Decal Violation" Then Src = QTikPerson & "ORDER BY PermitVio"
    If cmbSortBy.Text = "No Valid Registration" Then Src = QTikPerson & "ORDER BY NoReg"
    If cmbSortBy.Text = "No D.L. On Person" Then Src = QTikPerson & "ORDER BY NoDL"
    If cmbSortBy.Text = "Unsafe Equipment" Then Src = QTikPerson & "ORDER BY Unsafe"
    If cmbSortBy.Text = "Altered Suspension" Then Src = QTikPerson & "ORDER BY Altered"
    If cmbSortBy.Text = "Unsafe Tire" Then Src = QTikPerson & "ORDER BY UnsafeTire"
    If cmbSortBy.Text = "Defective Exhaust System" Then Src = QTikPerson & "ORDER BY BadExhaust"
    If cmbSortBy.Text = "Bicycle Violation" Then Src = QTikPerson & "ORDER BY Bicycle"
    If cmbSortBy.Text = "Animal Violation" Then Src = QTikPerson & "ORDER BY Animal"
    If cmbSortBy.Text = "Junk Violation" Then Src = QTikPerson & "ORDER BY Junk"
    If cmbSortBy.Text = "Fire Hazard" Then Src = QTikPerson & "ORDER BY Fire"
    If cmbSortBy.Text = "Road Hazard" Then Src = QTikPerson & "ORDER BY RoadHaz"
    If cmbSortBy.Text = "Health Hazard" Then Src = QTikPerson & "ORDER BY HealthHaz"
    If cmbSortBy.Text = "Soliciting W/O Permit" Then Src = QTikPerson & "ORDER BY Soliciting"
    If cmbSortBy.Text = "Snow Removal" Then Src = QTikPerson & "ORDER BY Snow"
    If cmbSortBy.Text = "Other 1" Then Src = QTikPerson & "ORDER BY Other1"
    If cmbSortBy.Text = "Other 1 Text" Then Src = QTikPerson & "ORDER BY Other1Txt"
    If cmbSortBy.Text = "Other 2" Then Src = QTikPerson & "ORDER BY Other2"
    If cmbSortBy.Text = "Other 2 Text" Then Src = QTikPerson & "ORDER BY Other2Txt"

    If cmbSortBy.Text = "Repair By Days" Then Src = QTikPerson & "ORDER BY DaystoFix"
    If cmbSortBy.Text = "Officer ID" Then Src = QTikPerson & "ORDER BY OfficerID"
    If cmbSortBy.Text = "Officer Name" Then Src = QTikPerson & "ORDER BY Name"
    dtaWarning.RecordSource = Src
    dtaWarning.Refresh
End Sub

Sub cmdCancel_Click ()
    If LastNum <> "" Then
        dtaWarning.Recordset.FindFirst "WarningNum = '" & LastNum & "'"
        Call NoChangeState
    Else
        cmdNew.Value = True
    End If
End Sub

Sub cmdComm_Click ()
    frmComm!txtComm = txtComm
    frmComm.Show 1
    If txtComm.DataChanged Then
        If txtComm = "" Then
            cmdComm.Caption = "Add Co&mment"
        Else
            cmdComm.Caption = "Edit Co&mment"
        End If
        Call Editing
    End If
End Sub

Sub cmdDelete_Click ()
    dtaWarning.Recordset.Delete
    dtaWarning.Refresh
    If dtaWarning.Recordset.EOF Then
        MsgBox "There are no remaining tickets, you may add one now."
        cmdNew.Value = True
    End If
End Sub

Sub cmdJumpTo_Click ()
    Dim Feet, Inches
    If cmbSortBy.Text = "Date/Time Descending" Then If IsDate(txtJumpTo) Then dtaWarning.Recordset.FindFirst "DateTime <= " & "#" & txtJumpTo & "#"
    If cmbSortBy.Text = "Ticket Number" Then dtaWarning.Recordset.FindFirst "WarningNum >= " & "'" & txtJumpTo & "'"
    If cmbSortBy.Text = "Last Name" Then dtaWarning.Recordset.FindFirst "LName >= " & "'" & txtJumpTo & "'"
    If cmbSortBy.Text = "First Name" Then dtaWarning.Recordset.FindFirst "FName >= " & "'" & txtJumpTo & "'"
    If cmbSortBy.Text = "Address" Then dtaWarning.Recordset.FindFirst "Address >= " & "'" & txtJumpTo & "'"
    If cmbSortBy.Text = "City" Then dtaWarning.Recordset.FindFirst "City >= " & "'" & txtJumpTo & "'"
    If cmbSortBy.Text = "State" Then dtaWarning.Recordset.FindFirst "State >= " & "'" & txtJumpTo & "'"
    If cmbSortBy.Text = "Zip Code" Then dtaWarning.Recordset.FindFirst "Zip >= " & "'" & txtJumpTo & "'"
    If cmbSortBy.Text = "DL Number" Then dtaWarning.Recordset.FindFirst "DL >= " & "'" & txtJumpTo & "'"
    If cmbSortBy.Text = "DL State" Then dtaWarning.Recordset.FindFirst "DLSt >= " & "'" & txtJumpTo & "'"
    If cmbSortBy.Text = "DL Type" Then dtaWarning.Recordset.FindFirst "DLType >= " & "'" & txtJumpTo & "'"
    If cmbSortBy.Text = "Date Of Birth" Then dtaWarning.Recordset.FindFirst "DOB >= " & "#" & txtJumpTo & "#"
    If cmbSortBy.Text = "Height" Then
        Feet = Left(txtJumpTo, (InStr(1, txtJumpTo, " ") - 1))
        Inches = Right(txtJumpTo, Len(txtJumpTo) - InStr(1, txtJumpTo, " "))
        dtaWarning.Recordset.FindFirst "(Feet >= " & "'" & Feet & "') AND (Inches >= '" & Inches & "')"
    End If
    If cmbSortBy.Text = "Weight" Then dtaWarning.Recordset.FindFirst "Weight >= " & "'" & txtJumpTo & "'"
    If cmbSortBy.Text = "Hair Color" Then dtaWarning.Recordset.FindFirst "Hair >= " & "'" & txtJumpTo & "'"
    If cmbSortBy.Text = "Eye Color" Then dtaWarning.Recordset.FindFirst "Eyes >= " & "'" & txtJumpTo & "'"
    If cmbSortBy.Text = "Sex" Then dtaWarning.Recordset.FindFirst "Sex >= " & "'" & txtJumpTo & "'"
    If cmbSortBy.Text = "Plate" Then dtaWarning.Recordset.FindFirst "Plate >= " & "'" & txtJumpTo & "'"
    If cmbSortBy.Text = "Plate State" Then dtaWarning.Recordset.FindFirst "PlateSt >= " & "'" & txtJumpTo & "'"
    If cmbSortBy.Text = "Color" Then dtaWarning.Recordset.FindFirst "Color >= " & "'" & txtJumpTo & "'"
    If cmbSortBy.Text = "Make" Then dtaWarning.Recordset.FindFirst "Make >= " & "'" & txtJumpTo & "'"
    If cmbSortBy.Text = "Model" Then dtaWarning.Recordset.FindFirst "Model >= " & "'" & txtJumpTo & "'"

    If cmbSortBy.Text = "Model Year" Then dtaWarning.Recordset.FindFirst "Year >= " & "'" & txtJumpTo & "'"
    If cmbSortBy.Text = "Speeding" Then dtaWarning.Recordset.FindFirst "Speed >= " & txtJumpTo
    If cmbSortBy.Text = "Speed" Then dtaWarning.Recordset.FindFirst "SpeedFrom >= " & "'" & txtJumpTo & "'"
    If cmbSortBy.Text = "Speed Limit" Then dtaWarning.Recordset.FindFirst "SpeedIn >= " & "'" & txtJumpTo & "'"
    If cmbSortBy.Text = "Too Fast for Conditions" Then dtaWarning.Recordset.FindFirst "TooFast >= " & txtJumpTo
    If cmbSortBy.Text = "Following Too Closely" Then dtaWarning.Recordset.FindFirst "TooClose >= " & txtJumpTo
    If cmbSortBy.Text = "Improper Lane Usage" Then dtaWarning.Recordset.FindFirst "ImpLane >= " & txtJumpTo
    If cmbSortBy.Text = "Unsafe Backing" Then dtaWarning.Recordset.FindFirst "UnsBack >= " & txtJumpTo
    If cmbSortBy.Text = "Illegal U-Turn" Then dtaWarning.Recordset.FindFirst "UTurn >= " & txtJumpTo
    If cmbSortBy.Text = "Driving Off Roadway" Then dtaWarning.Recordset.FindFirst "OffRoad >= " & txtJumpTo
    If cmbSortBy.Text = "Driving In Wrong Lane" Then dtaWarning.Recordset.FindFirst "WrongLane >= " & txtJumpTo
    If cmbSortBy.Text = "Disobeyed Stop Sign" Then dtaWarning.Recordset.FindFirst "StopSign >= " & txtJumpTo
    If cmbSortBy.Text = "Disobeyed Yield Sign" Then dtaWarning.Recordset.FindFirst "YieldSign >= " & txtJumpTo
    If cmbSortBy.Text = "Illegal Parking" Then dtaWarning.Recordset.FindFirst "Parking >= " & txtJumpTo
    If cmbSortBy.Text = "Improper Passing" Then dtaWarning.Recordset.FindFirst "Passing >= " & txtJumpTo
    If cmbSortBy.Text = "No Seat Belt" Then dtaWarning.Recordset.FindFirst "SeatBelt >= " & txtJumpTo
    If cmbSortBy.Text = "Fail To Signal" Then dtaWarning.Recordset.FindFirst "Signal >= " & txtJumpTo
    If cmbSortBy.Text = "Signal Where" Then dtaWarning.Recordset.FindFirst "SigWhere >= " & "'" & txtJumpTo & "'"
    If cmbSortBy.Text = "No Lights When Required" Then dtaWarning.Recordset.FindFirst "NoLights >= " & txtJumpTo
    If cmbSortBy.Text = "Failure To Dim Headlights" Then dtaWarning.Recordset.FindFirst "DimLights >= " & txtJumpTo
    If cmbSortBy.Text = "One Headlight" Then dtaWarning.Recordset.FindFirst "OneHead >= " & txtJumpTo
    If cmbSortBy.Text = "One Taillight" Then dtaWarning.Recordset.FindFirst "OneTail >= " & txtJumpTo
    If cmbSortBy.Text = "Broken Taillight" Then dtaWarning.Recordset.FindFirst "BrokeTail >= " & txtJumpTo
    If cmbSortBy.Text = "No Brake Light" Then dtaWarning.Recordset.FindFirst "NoBrake >= " & txtJumpTo
    If cmbSortBy.Text = "No Registration Lamp" Then dtaWarning.Recordset.FindFirst "NoRegLight >= " & txtJumpTo
    If cmbSortBy.Text = "Imp. Display of Plates" Then dtaWarning.Recordset.FindFirst "ImpPlates >= " & txtJumpTo
    If cmbSortBy.Text = "Obstructed Lic Plate" Then dtaWarning.Recordset.FindFirst "ObsPlate >= " & txtJumpTo
    If cmbSortBy.Text = "Expired License" Then dtaWarning.Recordset.FindFirst "ExpLicense >= " & txtJumpTo
    If cmbSortBy.Text = "Permit/Decal Violation" Then dtaWarning.Recordset.FindFirst "PermitVio >= " & txtJumpTo
    If cmbSortBy.Text = "No Valid Registration" Then dtaWarning.Recordset.FindFirst "NoReg >= " & txtJumpTo
    If cmbSortBy.Text = "No D.L. On Person" Then dtaWarning.Recordset.FindFirst "NoDL >= " & txtJumpTo
    If cmbSortBy.Text = "Unsafe Equipment" Then dtaWarning.Recordset.FindFirst "Unsafe >= " & txtJumpTo
    If cmbSortBy.Text = "Altered Suspension" Then dtaWarning.Recordset.FindFirst "Altered >= " & txtJumpTo
    If cmbSortBy.Text = "Unsafe Tire" Then dtaWarning.Recordset.FindFirst "UnsafeTire >= " & txtJumpTo
    If cmbSortBy.Text = "Defective Exhaust System" Then dtaWarning.Recordset.FindFirst "BadExhaust >= " & txtJumpTo
    If cmbSortBy.Text = "Bicycle Violation" Then dtaWarning.Recordset.FindFirst "Bicycle >= " & txtJumpTo
    If cmbSortBy.Text = "Animal Violation" Then dtaWarning.Recordset.FindFirst "Animal >= " & txtJumpTo
    If cmbSortBy.Text = "Junk Violation" Then dtaWarning.Recordset.FindFirst "Junk >= " & txtJumpTo
    If cmbSortBy.Text = "Fire Hazard" Then dtaWarning.Recordset.FindFirst "Fire >= " & txtJumpTo
    If cmbSortBy.Text = "Road Hazard" Then dtaWarning.Recordset.FindFirst "RoadHaz >= " & txtJumpTo
    If cmbSortBy.Text = "Health Hazard" Then dtaWarning.Recordset.FindFirst "HealthHaz >= " & txtJumpTo
    If cmbSortBy.Text = "Soliciting W/O Permit" Then dtaWarning.Recordset.FindFirst "Soliciting >= " & txtJumpTo
    If cmbSortBy.Text = "Snow Removal" Then dtaWarning.Recordset.FindFirst "Snow >= " & txtJumpTo
    If cmbSortBy.Text = "Other 1" Then dtaWarning.Recordset.FindFirst "Other1 >= " & txtJumpTo
    If cmbSortBy.Text = "Other 1 Text" Then dtaWarning.Recordset.FindFirst "Other1Txt >= " & "'" & txtJumpTo & "'"
    If cmbSortBy.Text = "Other 2" Then dtaWarning.Recordset.FindFirst "Other2 >= " & txtJumpTo
    If cmbSortBy.Text = "Other 2 Text" Then dtaWarning.Recordset.FindFirst "Other2Txt >= " & "'" & txtJumpTo & "'"

    If cmbSortBy.Text = "Repair By Days" Then dtaWarning.Recordset.FindFirst "DaysToFix >= " & "'" & txtJumpTo & "'"
    If cmbSortBy.Text = "Officer ID" Then dtaWarning.Recordset.FindFirst "OfficerID >= " & "'" & txtJumpTo & "'"
    If cmbSortBy.Text = "Officer Name" Then dtaWarning.Recordset.FindFirst "Name >= " & "'" & txtJumpTo & "'"
End Sub

Sub cmdNew_Click ()
    Call Editing
    Call ClrPerson
    dtaWarning.Recordset.AddNew
    txtDateTime.SetFocus
End Sub

Sub cmdSave_Click ()
  On Error GoTo CheckLenErr
  If txtNum <> "" And txtID <> "" And txtOffID <> "" Then
    If MsgBox("Commit Changes?", MSGBOX_TYPE) = YES Then
        If dtaWarning.EditMode = EM_ADDNEW Then
            dtaWarning.Recordset.Update
            dtaWarning.Recordset.MoveLast
            CurrRec = dtaWarning.Recordset!warningnum
            dtaWarning.Refresh
            dtaWarning.Recordset.FindFirst "WarningNum = '" & CurrRec & "'"
        Else
            dtaWarning.Recordset.Update
            CurrRec = dtaWarning.Recordset!warningnum
            dtaWarning.Refresh
            dtaWarning.Recordset.FindFirst "WarningNum = '" & CurrRec & "'"
        End If
        Call NoChangeState
    End If
  Else
    MsgBox "Warning Number,Person, and Officer must have a value"
  End If
  Exit Sub
CheckLenErr:
    Select Case Err
        Case 3163
            MsgBox "A value is too long, fix or cancel save"
            Exit Sub
        Case 3164
            MsgBox "This record has been deleted by another user"
            dtaWarning.Refresh
            If dtaWarning.Recordset.EOF Then
                MsgBox "There are no tickets entered, you may add one now."
                cmdNew.Value = True
            Else
                Call NoChangeState
            End If
            Exit Sub
        Case Else
            MsgBox "Unexpected Error " & Str(Err) & " " & Error
            Exit Sub
    End Select
    Resume
End Sub

Sub dtaWarning_Reposition ()
    Dim Idx As Integer
    If (Not Starting) And (dtaWarning.EditMode <> EM_ADDNEW) Then
        If Not dtaWarning.Recordset.EOF Then
            dtaPerson.Refresh
            dtaPerson.Recordset.FindFirst "ID = " & dtaWarning.Recordset!ID
            Set OffTable = Db.CreateDynaset("Officer")
            OffTable.FindFirst "OffID = " & "'" & dtaWarning.Recordset!OffID & "'"
            cmbPerson.Text = GetPersonStr(dtaPerson.Recordset)
            cmbOfficer.Text = GetOffStr()
            LastNum = dtaWarning.Recordset!warningnum
        Else
            Call ClrPerson
            LastNum = ""
        End If
        If txtComm = "" Then
            cmdComm.Caption = "Add Co&mment"
        Else
            cmdComm.Caption = "Edit Co&mment"
        End If
        lblPage2.Caption = "Page &2"
        lblPage1.Caption = "Page &1"
        If picPage1.Visible = True Then
            For Idx = 121 To 140
                If chkVio(Idx).Value = True Then
                    lblPage2.Caption = "*Page &2"
                    Exit For
                End If
            Next Idx
        Else
            For Idx = 100 To 120
                If chkVio(Idx).Value = True Then
                    lblPage1.Caption = "*Page &1"
                    Exit For
                End If
            Next Idx
        End If
    End If
End Sub

Sub dtaWarning_Validate (Action As Integer, Save As Integer)
    Select Case Action
        Case 1 ' First
        Case 2 ' Previous
        Case 3 ' Next
        Case 4 ' Last
        Case 5 ' AddNew
        Save = False ' Necessary for canceling an add
        Case 6 ' Update
        Case 7 ' Delete
        If MsgBox("Delete Record?", MSGBOX_TYPE) <> YES Then Action = 0
        Case 8 ' Find
        Save = False
        Case 9 ' Set Bookmark
        Case 10 ' Close
        Case 11 ' Unload Form
        If (dtaWarning.Enabled = False) Then
            If MsgBox("Commit Changes?", MSGBOX_TYPE) = YES Then
                If Not (txtNum <> "" And txtID <> "" And txtOffID <> "") Then
                    MsgBox "Warning Number,Person, and Officer must have a value"
                    Action = 0
                End If
            Else
                dtaPerson.Refresh
                Save = False
            End If
        End If
    End Select
End Sub

Sub Editing ()
    If dtaWarning.Enabled = True Then
        dtaWarning.Enabled = False
        cmdNew.Enabled = False
        cmdDelete.Enabled = False
        cmdSave.Enabled = True
        cmdCancel.Enabled = True
        mnuNew.Enabled = False
        mnuDelete.Enabled = False
        mnuSave.Enabled = True
        mnuCancel.Enabled = True
        cmbSortBy.Enabled = False
        lblSortBy.ForeColor = &H808080
        cmdJumpTo.Enabled = False
        txtJumpTo.Enabled = False
    End If
End Sub

Sub Form_Activate ()
    If Starting Then
        Starting = False
        Set Db = OpenDatabase("VBWARN.MDB")
        Set OffTable = Db.CreateDynaset("Officer")
        Set PerTable = Db.CreateDynaset("Person")
        Call RedocmbPerson
        Call RedoCmbOff
        dtaWarning.RecordSource = QTikPerson & " ORDER BY Tik.DateTime DESC"
        cmbSortBy.Text = "Date/Time Descending"
        dtaWarning.Refresh
        If dtaWarning.Recordset.EOF Then
            MsgBox "There are no tickets entered, you may add one now."
            cmdNew.Value = True
        Else
            Call NoChangeState
        End If
    End If
End Sub

Sub Form_Load ()
    NL = (Chr(13) + Chr(10))
    Starting = True
    cmbSortBy.Clear
    cmbSortBy.AddItem "Date/Time Descending"
    cmbSortBy.AddItem "Ticket Number"
    cmbSortBy.AddItem "Last Name"
    cmbSortBy.AddItem "First Name"
    cmbSortBy.AddItem "Address"
    cmbSortBy.AddItem "City"
    cmbSortBy.AddItem "State"
    cmbSortBy.AddItem "Zip Code"
    cmbSortBy.AddItem "DL Number"
    cmbSortBy.AddItem "DL State"
    cmbSortBy.AddItem "DL Type"
    cmbSortBy.AddItem "Date Of Birth"
    cmbSortBy.AddItem "Height"
    cmbSortBy.AddItem "Weight"
    cmbSortBy.AddItem "Hair Color"
    cmbSortBy.AddItem "Eye Color"
    cmbSortBy.AddItem "Sex"
    cmbSortBy.AddItem "Plate"
    cmbSortBy.AddItem "Plate State"
    cmbSortBy.AddItem "Color"
    cmbSortBy.AddItem "Make"
    cmbSortBy.AddItem "Model"
    cmbSortBy.AddItem "Model Year"
    cmbSortBy.AddItem "Speeding"
    cmbSortBy.AddItem "Speed"
    cmbSortBy.AddItem "Speed Limit"
    cmbSortBy.AddItem "Too Fast for Conditions"
    cmbSortBy.AddItem "Following Too Closely"
    cmbSortBy.AddItem "Improper Lane Usage"
    cmbSortBy.AddItem "Unsafe Backing"
    cmbSortBy.AddItem "Illegal U-Turn"
    cmbSortBy.AddItem "Driving Off Roadway"
    cmbSortBy.AddItem "Driving In Wrong Lane"
    cmbSortBy.AddItem "Disobeyed Stop Sign"
    cmbSortBy.AddItem "Disobeyed Yield Sign"
    cmbSortBy.AddItem "Illegal Parking"
    cmbSortBy.AddItem "Improper Passing"
    cmbSortBy.AddItem "No Seat Belt"
    cmbSortBy.AddItem "Fail To Signal"
    cmbSortBy.AddItem "Signal Where"
    cmbSortBy.AddItem "No Lights When Required"
    cmbSortBy.AddItem "One Headlight"
    cmbSortBy.AddItem "One Taillight"
    cmbSortBy.AddItem "Broken Taillight"
    cmbSortBy.AddItem "No Brake Light"
    cmbSortBy.AddItem "No Registration Lamp"
    cmbSortBy.AddItem "Imp. Display of Plates"
    cmbSortBy.AddItem "Obstructed Lic Plate"
    cmbSortBy.AddItem "Expired License"
    cmbSortBy.AddItem "Permit/Decal Violation"
    cmbSortBy.AddItem "No Valid Registration"
    cmbSortBy.AddItem "No D.L. On Person"
    cmbSortBy.AddItem "Unsafe Equipment"
    cmbSortBy.AddItem "Altered Suspension"
    cmbSortBy.AddItem "Unsafe Tire"
    cmbSortBy.AddItem "Defective Exhaust System"
    cmbSortBy.AddItem "Bicycle Violation"
    cmbSortBy.AddItem "Animal Violation"
    cmbSortBy.AddItem "Junk Violation"
    cmbSortBy.AddItem "Fire Hazard"
    cmbSortBy.AddItem "Road Hazard"
    cmbSortBy.AddItem "Health Hazard"
    cmbSortBy.AddItem "Soliciting W/O Permit"
    cmbSortBy.AddItem "Snow Removal"
    cmbSortBy.AddItem "Other 1"
    cmbSortBy.AddItem "Other 1 Text"
    cmbSortBy.AddItem "Other 2"
    cmbSortBy.AddItem "Other 2 Text"
    cmbSortBy.AddItem "Repair By Days"
    cmbSortBy.AddItem "Officer ID"
    cmbSortBy.AddItem "Officer Name"
End Sub

Function GetOffStr ()
    Dim Namex As String
    Namex = ""
    If Not OffTable.EOF Then
        Namex = Trim$(OffTable("Name"))
        GetOffStr = Namex & " - " & Trim$(OffTable("OffID"))
    End If
End Function

Function GetPersonStr (FileSrc As Dynaset)
    Dim Namex As String
    Namex = ""
    If Not FileSrc.EOF Then
        Namex = Trim$(FileSrc("LName"))
        Namex = Namex & ", " & Trim$(FileSrc("FName"))
        If Not IsNull(FileSrc("Initial")) Then
            Namex = Namex & ", " & Trim$(FileSrc("Initial"))
        End If
        GetPersonStr = Namex & " - " & FileSrc("ID")
    End If
End Function

Sub lblPage1_Click ()
    Dim Idx As Integer
    picTabs.Picture = imgPage1.Picture
    picPage2.Visible = False
    picPage1.Visible = True
    chkVio(100).SetFocus
    lblPage1.Caption = "Page &1"
    lblPage2.Caption = "Page &2"
    For Idx = 121 To 140
        If chkVio(Idx).Value = True Then
            lblPage2.Caption = "*Page &2"
            Exit For
        End If
    Next Idx
End Sub

Sub lblPage2_Click ()
    Dim Idx As Integer
    picTabs.Picture = imgPage2.Picture
    picPage2.Visible = True
    picPage1.Visible = False
    chkVio(121).SetFocus
    lblPage1.Caption = "Page &1"
    lblPage2.Caption = "Page &2"
    For Idx = 100 To 120
        If chkVio(Idx).Value = True Then
            lblPage1.Caption = "*Page &1"
            Exit For
        End If
    Next Idx
End Sub

Sub mnuAbout_Click ()
    Dim Cap1, Cap2, Cap3, Cap4, Cap5, Cap6, Cap7, Cap8 As String
    Cap1 = "This Warning Ticket System allows entry and modification of warning tickets which have been issued by the police unit. "
    Cap2 = "These tickets may be retrieved easily and the information relayed to an officer to help when making a decision "
    Cap3 = "regarding whether to issue a warning or a ticket to a violator, based on their previous history. It can also be used "
    Cap4 = "to access historical data regarding types of tickets issued, time and date analysis, frequent violators, ticketing "
    Cap5 = "trends by officers, etc."
    Cap6 = "I am available for custom off site programming by the job or by the hour. You can reach me by EMail at [e-mail],"
    Cap7 = "or at Compuserve at 73134,610, or by phone at 309-937-2680."
    Cap8 = "Thanks. Matthew Brown"
    frmAbout!lblAbout.Caption = Cap1 & NL & NL & Cap2 & Cap3 & Cap4 & Cap5 & NL & NL & Cap6 & Cap7 & NL & NL & Cap8
    frmAbout.Show 1
End Sub

Sub mnuDelete_Click ()
    cmdDelete.Value = True
End Sub

Sub mnuExit_Click ()
    End
End Sub

Sub mnuNew_Click ()
    cmdNew.Value = True
End Sub

Sub mnuNewPerson_Click ()
    cmbNewPerson.Value = True
End Sub

Sub mnuOfficers_Click ()
    frmOff.Show 1
    Call RedoCmbOff
    Set OffTable = Db.CreateDynaset("Officer")
    If Not IsNull(dtaWarning.Recordset!OffID) Then
        OffTable.FindFirst "OffID = " & "'" & dtaWarning.Recordset!OffID & "'"
        If Not OffTable.NoMatch Then cmbOfficer.Text = GetOffStr()
    End If
End Sub

Sub mnuPage1_Click ()
   Call lblPage1_Click
End Sub

Sub mnuPage2_Click ()
    lblPage2_Click
End Sub

Sub mnuPersons_Click ()
    frmPer.Show 1
    Call RedocmbPerson
    dtaPerson.Refresh
    If Not IsNull(dtaWarning.Recordset!ID) Then
        dtaPerson.Recordset.FindFirst "ID = " & dtaWarning.Recordset!ID
        If Not dtaPerson.Recordset.NoMatch Then cmbPerson.Text = GetPersonStr(dtaPerson.Recordset)
    Else
        Call ClrPerson
    End If
End Sub

Sub mnuSave_Click ()
    cmdSave.Value = True
End Sub

Sub NoChangeState ()
    dtaWarning.Enabled = True
    cmdNew.Enabled = True
    cmdDelete.Enabled = True
    cmdSave.Enabled = False
    cmdCancel.Enabled = False
    mnuNew.Enabled = True
    mnuDelete.Enabled = True
    mnuSave.Enabled = False
    mnuCancel.Enabled = False
    cmbSortBy.Enabled = True
    lblSortBy.ForeColor = &H80000008
    cmdJumpTo.Enabled = True
    txtJumpTo.Enabled = True
    txtDateTime.SetFocus
End Sub

Sub Other1Txt_KeyPress (KeyAscii As Integer)
    Call Editing
End Sub

Sub RedoCmbOff ()
  Set OffTable = Db.CreateDynaset("OFFICER")
  If Not OffTable.EOF Then
    cmbOfficer.Clear
    OffTable.MoveFirst
    While Not OffTable.EOF
        cmbOfficer.AddItem GetOffStr()
        OffTable.MoveNext
    Wend
  End If
End Sub

Sub RedocmbPerson ()
  Set PerTable = Db.CreateDynaset("Person")
  If Not PerTable.EOF Then
    cmbPerson.Clear
    PerTable.MoveFirst
    While Not PerTable.EOF
        cmbPerson.AddItem GetPersonStr(PerTable)
        PerTable.MoveNext
    Wend
  End If
End Sub

Sub txtColor_KeyPress (KeyAscii As Integer)
    Call Editing
End Sub

Sub txtDateTime_KeyPress (KeyAscii As Integer)
    Call Editing
End Sub

Sub txtDateTime_LostFocus ()
    If (Not IsDate(txtDateTime.Text)) And (txtDateTime <> "") Then
        MsgBox ("Enter a valid date")
        txtDateTime.SetFocus
    End If
End Sub

Sub txtDaysToFix_KeyPress (KeyAscii As Integer)
    Call Editing
End Sub

Sub txtDoPg1_GotFocus ()
    lblPage1_Click
End Sub

Sub txtDoPg2_GotFocus ()
    lblPage2_Click
End Sub

Sub txtLocation_KeyPress (KeyAscii As Integer)
    Call Editing
End Sub

Sub txtMake_KeyPress (KeyAscii As Integer)
    Call Editing
End Sub

Sub txtModel_KeyPress (KeyAscii As Integer)
    Call Editing
End Sub

Sub txtNum_KeyPress (KeyAscii As Integer)
    Call Editing
End Sub

Sub txtNum_LostFocus ()
  ' autofind code
  If txtNum.Text <> LastNum Then
    Dim DBClone As Dynaset
    Set DBClone = dtaWarning.Recordset.Clone()
    DBClone.FindFirst "WarningNum = '" & txtNum & "'"
    If Not DBClone.NoMatch Then
        If MsgBox("Display ticket and lose any changes?", MSGBOX_TYPE) <> YES Then
            If Not IsNull(dtaWarning.Recordset!warningnum) Then txtNum = dtaWarning.Recordset!warningnum
        Else
            dtaWarning.Recordset.FindFirst "WarningNum = '" & txtNum & "'"
            Call NoChangeState
        End If
    End If
  End If
End Sub

Sub txtOther2Txt_KeyPress (KeyAscii As Integer)
    Call Editing
End Sub

Sub txtPlate_KeyPress (KeyAscii As Integer)
    If (KeyAscii >= Asc("a")) And (KeyAscii <= Asc("z")) Then KeyAscii = KeyAscii - 32
    Call Editing
End Sub

Sub txtPlateSt_KeyPress (KeyAscii As Integer)
    If (KeyAscii >= Asc("a")) And (KeyAscii <= Asc("z")) Then KeyAscii = KeyAscii - 32
    Call Editing
End Sub

Sub txtSigWhere_KeyPress (KeyAscii As Integer)
    Call Editing
End Sub

Sub txtSpeedFrom_KeyPress (KeyAscii As Integer)
    Call Editing
End Sub

Sub txtSpeedIn_KeyPress (KeyAscii As Integer)
    Call Editing
End Sub

Sub txtYear_KeyPress (KeyAscii As Integer)
    Call Editing
End Sub